7-Billion-Humans-Solutions/Glitchless/Speed/Year 65 - Defrag Ordered at main · abfipes12/7-Billion-Humans-Solutions · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
-- 7 Billion Humans (2235) --
-- 65: Defrag Ordered by @commonnickname --

jump a
mem1 = foreachdir w:
	mem2 = foreachdir e:
		a:
		step n
		if mem1 == nothing:
			pickup n
			step ne
			if mem2 == nothing:
				step ne
				step ne
				step n
				drop
				step nw
				pickup ne
				step n
				drop
				pickup s
				step e
				step e
				step e
				drop
				step s
				step s
				step s
				step s
				pickup sw
				step n
				step n
				drop
				pickup s
				step w
				step w
				step w
				step w
				step w
			else:
				step n
				step ne
				step n
				drop
				step ne
				pickup ne
				step nw
				step w
				drop
				step sw
				pickup s
				drop
				step w
				pickup s
				drop
				pickup w
				step e
				step e
				step ne
				drop
				step w
				step w
				step w
				step sw
				pickup sw
			endif
		else:
			step n
			step n
			step n
			if mem2 != nothing:
				pickup ne
				step n
				comment 0
				mem1 = set myitem
				step n
				drop
				step e
				pickup se
				drop
				pickup e
				step w
				step w
				step w
				step w
				step w
				drop
				step se
				step s
				pickup se
				step ne
				drop
				pickup sw
				step ne
				step e
				step e
				step e
				step e
			else:
				step n
				step n
				pickup w
				step ne
				comment 1
				mem3 = foreachdir nw,w,sw,n,ne,e,se:
				endfor
				step e
				drop
				step sw
				pickup se
				drop
				step se
				step s
				step s
				pickup sw
				step n
				step n
				drop
				step w
				step sw
				pickup s
				step w
				step nw
				drop
				pickup s
				step w
				step w
				step w
			endif
		endif
	endfor
endfor
drop


DEFINE COMMENT 0
eJztkM1KAkAUhb91WBAUFURRq36IIiIlRDSsRUS0KjMzEZE0F0JiYGUXimolLUJEJHqPCNroAwjVpqJH
6Yz0Bm098DEz9965d+bkkXoI42FHVM3DkwvRy4ZYp4916yfIAAGGCdoomzZGxMaJ2gRZJilrvdG5otwD
I9QYEoM0dKfR6TXDiojZNElxr32NOeW8f3kvaRbEPClmhdMyPpbw2SLLNqWTU0ixEBu2Slzcaf+o9cnC
Yk37LR5dmUWo2y7X7FEQOYuSsH3CFsNvh+qXUL8Ufk0MW5Ykx6rJcmcZKmSocySc0hRVl+dAOJ0QsAJx
RbOc6s4ZOS5VfUWCW/lyI4/c/BJF5cqc668X+quLPbNtL+JVvjY1uyUvW5rfUq+mZjflnVNbPrVJi2rn
3ps8+9D7v8WP3upi75T4VPcvzeiqq3/qF971ZMU;

DEFINE COMMENT 1
eJztkb9KQnEcxT8PYEHUFGFBtfUHwyAKIszCIcIgUETIyqxBQsP+IGpfoqLBwQeIkIgGCadeQhtqiCDX
kpaGHqFzLz1Cowc+8DsXzj3nd28asG4C1kVCnJmHCh5qOOohZH0EbUB4dR4ibMOkGKUkLhmhomd3DHKP
l5r1U7de6k7UJpSZJCpyjHHDOLdMcW+zYk4ZRz4O8LPPDGk342PZ/GKaIHPC0aL8IqviwAKU5a9Zomph
saZ3OoqpO6qOCGfiRH6FuPIbzLOlHUlWbJek7ZEXZdvhwe3bxmyTkkV0H8dnWSDLqlYl7JCMHYljcnYq
LtizK2Ii5HYWOKeoPUUeXd9QZ1M9TdZF3BqkRN6eKNizeFHHq7relHTU0p3etbKlrhZVt/9DfZ/a3/77
Pm35HzLu+Uv/5Vt01NE/6xfXdmv3;